home *** CD-ROM | disk | FTP | other *** search
/ The CICA Windows Explosion! / The CICA Windows Explosion! - Disc 1.iso / desktop / papcw10.zip / MORTGAGE.PRG < prev    next >
Text File  |  1995-01-22  |  673b  |  25 lines
  1. LBL mortgage
  2. 12 prec
  3. clrf 125,000 pv 6.875 12/ i 30 12* n pmt
  4. 12 tabset
  5. PUTS "month\tpayment\tinterest\tprincipal\t  balance\n"
  6. PUTS "-----\t-------\t--------\t---------\t  -------\n"
  7. ; do it for thirty years
  8. 1.36001 0 sto      ; counter
  9. 3 rcl 6 sto        ; r6 will hold balance
  10.  
  11. LBL loop
  12. 0 fix
  13. 0 rcl int 4 width putstack drop puts "\t"          ; month
  14. 2 fix
  15. 4 rcl chs 7 width putstack puts "\t"               ; pmt
  16. 6 rcl 2 rcl % 7 width putstack puts "\t"           ; interest
  17. - 7 width putstack puts "\t"                       ; principal
  18. chs 6 rcl + 11 width putstack puts "\n"            ; balance
  19. 6 sto
  20. 0 ISG
  21. GTO loop
  22.  
  23. ; cleanup
  24. 0 width drop
  25.